home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
87xx
/
8710.d64
/
pd menu maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
3KB
|
97 lines
1 REM
2 REM PULLDOWN MENU MAKER
3 REM
4 REM (C) 86: MAROSOFT
5 REM
9 IF FL=0 THEN DIM M(5),M$(5),B$(5,11)
10 IF FL=0 THEN FL=1:PRINT "[147]LOADING PD1-4 ...":LOAD "PD1",8,1
11 IF FL=1 THEN FL=2:LOAD "PD2",8,1
12 IF FL=2 THEN FL=3:LOAD "PD3",8,1
13 IF FL=3 THEN FL=4:LOAD "PD4",8,1
14 PRINT"[147]PULLDOWN MENU MAKER (C) MAROSOFT"
15 OPEN 1,8,15:PRINT#1,"R:H#H#H#=PD0"
16 INPUT#1,A,B$,C,D:IF A<>0 THEN 20
17 PRINT#1,"R:PD0=H#H#H#":PRINT" PD0 EXISTIERT SCHON AUF DIESER DISK"
18 PRINT" ANDERE DISK EINLEGEN, <RETURN>
19 [133] A$:[160] 1:[137] 15
20 [152]1,"I":[160] 1
21 [153]"ES STEHEN 5 OBERMENUES ZUR VERFUEGUNG.
22 PRINT"BITTE GEBEN SIE DIE NAMEN EIN:"
23 PRINT "STELLEN SIE DIE GROSS/KLEINSHREIBUNG WIEIN IHREM PROGRAMM EIN !!!
30 [129] X[178]1 [164] 5:B$[178]" ":[139] X[178]5 [167] B$[178]""
40 [153]"MENU"X":";
50 [133] T$
60 [139] [195](T$)[177]7[170](X[178]5) [167] [153]"ON";:[137] 40
70 [153]
80 [139] [195](T$)[178]7[170](X[178]5) [167] 100
90 T$[178]T$[170]" ":[137] 80
100 M$(X)[178]T$:T$[178]"":[153]:[153]"ON "
110 [130] X
120 ME$[178]" "
130 [129] X[178]1 [164] 5:ME$[178]ME$[170]M$(X)[170]" ":[130] X
140 [153]"LOAD"ME$;:[129] X[178]1 [164] 40:[153]"=";:[130] X
150 [153]:[153]"^ SO SIEHT DIE KOPFZEILE AUS. OK (J/N) ?"
160 [161] A$:[139] A$[178]"" [167] 160
170 [139] A$[179][177]"J" [167] 10
200 [153] "LOADJETZT DIE ANZAHL BEFEHLE PRO MENU:
210 FOR X=1 TO 5
220 PRINT"MENU"X": "+M$(X):INPUT M(X)
230 IF M(X)>10 OR M(X)<1 THEN PRINT"[145][145][145]";:GOTO 220
240 NEXT X
250 PRINT"[147]UND JETZT DIE BEFEHLE:
260 [129] X[178]1 [164] 5:[153]"FUER MENU"X": "M$(X)" ("M(X)")"
270 [129] Y[178]1 [164] M(X)
280 [153]Y":":[133] B$(X,Y)
290 [139] [195](B$(X,Y))[177]17 [167] [153]"ON";:[137] 280
291 [139] [195](B$(X,Y))[178]17 [167] 293
292 B$(X,Y)[178]B$(X,Y)[170]" ":[137] 291
293 B$(X,Y)[178]"= "[170]B$(X,Y)[170]" ="
300 [130] Y:B$(X,Y)[178]"=====================":[130] X
310 [153]"LOAD (1) UEBERSICHT AM BILDSCHIRM
311 PRINT" (2) UEBERSICHT AUF DRUCKER
312 [153]" (3) DATEN ERRECHNEN UND SPEICHERN"
320 [161] A$:A[178][197](A$):[139] A[178]0 [176] A[177]3 [167] 320
330 [139] A[178]3 [167] 500
340 [159] 1,2[170]A
350 [152]1:[152]1:[152]1,ME$
360 [129] X[178]1 [164] 5:[152]1: [152]1,M$(X)":":[152]1
370 [129] Y[178]1 [164] M(X):[152]1,Y" -"B$(X,Y)
380 [130] Y,X
390 [160] 1:[137] 310
500 [153]"LOADBITTE WARTEN, ICH RECHNE... _ HIER CODETEST!
510 REM HEADER (KOPFZEILE)
520 L=49408:T$=ME$:GOSUB 10000
530 FOR X=1 TO 5
540 POKE 50927+X,M(X)-1
550 NEXT X
560 L=51712
570 FOR X=1 TO 5:L=L+256
580 T$="":FOR Y=1 TO M(X)+1:T$=T$+B$(X,Y):NEXT Y:GOSUB 10000
590 NEXT X
600 PRINT" _ COUNTDOWN "
604 PRINT"DISKETTE EINLEGEN! OK? RETURN!"
605 INPUT A$
610 PRINT"ICH SPEICHERE JETZT !"
620 OPEN 1,8,2,"PD0,P,W"
630 PRINT#1,CHR$(0);CHR$(192);
640 FOR X=49152 TO 53247:PRINT""53247-X" "
650 PRINT#1,CHR$(PEEK(X));:NEXT X
660 CLOSE 1
700 PRINT"[147]CODETABELLE AUSDRUCKEN (J/N)
710 [161] A$:[139] A$[178]"" [167] 710
720 [139] A$[179][177]"J" [167] 9999
730 [159] 1,4
740 [152]1,"CODETABELLE FUER PULLDOWN-MENUES (C) MAROSOFT '86
750 PRINT#1:PRINT#1,"KOPFZEILE:":PRINT#1,ME$
760 FOR X=1 TO 5:PRINT#1:PRINT#1,M$(X):PRINT#1
770 FOR Y=1 TO M(X):PRINT#1,(X-1)*10+Y-1;TAB(5);B$(X,Y):NEXT Y,X
780 PRINT#1:PRINT#1,99;TAB(5)"QUIT OHNE AUSWAHL"
790 CLOSE 1
9999 END
10000 REM CODE ERRECHNEN UND NACH L
10010 FOR I=1 TO LEN(T$):A$=MID$(T$,I,1)
10020 PRINT"";A$;
10030 POKE L+I-1,PEEK(1024)
10040 NEXT I
10050 RETURN